home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Hardcore Visual Basic 5.0 (2nd Edition)
/
Hardcore Visual Basic 5.0 - Second Edition (1997)(Microsoft Press).iso
/
Code
/
TSYSMENU.bas
< prev
next >
Wrap
BASIC Source File
|
1997-06-14
|
661b
|
23 lines
Attribute VB_Name = "MTestSysMenu"
Option Explicit
Public procOld As Long
Public Const IDM_ABOUT As Long = 1010
Public Function SysMenuProc(ByVal hWnd As Long, ByVal iMsg As Long, _
ByVal wParam As Long, lParam As Long) As Long
' Ignore everything but system commands
If iMsg = WM_SYSCOMMAND Then
' Check for one special menu item
If wParam = IDM_ABOUT Then
MsgBox "Callback Test"
Exit Function
End If
End If
' Let old window procedure handle other messages
SysMenuProc = CallWindowProc(procOld, hWnd, iMsg, wParam, lParam)
End Function
'